(imenu--generic-function): Use mapc to iterate over

syntax characters.

diff --git a/lisp/imenu.el b/lisp/imenu.el
index 3a9a01b3df91a741ef9b7127bdabe5250aa491b1..440758693e8681dabddf491a172bf879ad54faff 100644 (file)
--- a/lisp/imenu.el
+++ b/lisp/imenu.el
@@ -795,8 +795,9 @@ PATTERNS."
       ;; The character(s) to modify may be a single char or a string.
       (if (numberp (caar slist))
          (modify-syntax-entry (caar slist) (cdar slist) table)
-       (dolist (c (caar slist))
-         (modify-syntax-entry c (cdar slist) table)))
+       (mapc (lambda (c)
+               (modify-syntax-entry c (cdar slist) table))
+             (caar slist)))
       (setq slist (cdr slist)))
     (goto-char (point-max))
     (imenu-progress-message prev-pos 0 t)